2018-12-26

library(readr); library(dplyr); library(stringr); library(lubridate)

install.packages("plotly")

plasticContainer <- list(
  greenBox=c("paper","scissor"),     # location 1
  redBox=c(1L,3L,2.5),               # location 2
  blueBox=c(TRUE,FALSE,TRUE,TRUE)    # location 3
)

download.file("https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true",destfile = "plotly_4070_neda.Rda")

嘗試 URL 'https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true'
Content type 'application/octet-stream' length 12400 bytes (12 KB)
==================================================
downloaded 12 KB

load("plotly_4070_neda.Rda")
library(plotly)

Loading required package: ggplot2

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

plotly_4070_neda

plasticContainer[c("greenBox")] # or plasticContainer[c(1,2)]

$greenBox
[1] "paper"   "scissor"

plasticContainer["greenBox"] # or plasticContainer[c(1,2)]

$greenBox
[1] "paper"   "scissor"

plasticContainer[["greenBox"]] # or plasticContainer[[1]]

[1] "paper"   "scissor"

plasticContainer["greenBox"][[1]][1]

[1] "paper"

plasticContainer[["greenBox"]][1]

[1] "paper"

plotly_4070_neda$x$layout$shapes[[1]]$opacity<-0.8
plotly_4070_neda